home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / graphics / tierra40.arj / TIERRA / GB2 / 0060AAA.TIE < prev    next >
Text File  |  1992-09-10  |  3KB  |  69 lines

  1.  
  2. format: 3  bits: 3  EX      TC      TP      MF      MT      MB      
  3. genotype: 0060aaa  parent genotype: 0666god
  4. ploidy: 1  track: 0
  5. comments: a parasite hand-made from the ancestor.
  6.  
  7. track 0: prot
  8.           xwr
  9. nop1    ; 010 000 01   0 beginning marker
  10. nop1    ; 010 000 01   1 beginning marker
  11. nop1    ; 010 000 01   2 beginning marker
  12. nop1    ; 010 000 01   3 beginning marker
  13. zero    ; 010 000 12   4 zero out ax so that adrb offset is zero
  14. adrb    ; 010 000 1c   5 get (backward) address of beginning marker -> ax
  15. nop0    ; 010 000 00   6 complement to beginning marker
  16. nop0    ; 010 000 00   7 complement to beginning marker
  17. nop0    ; 010 000 00   8 complement to beginning marker
  18. nop0    ; 010 000 00   9 complement to beginning marker
  19. bx      ; 010 000 03  10
  20. sub     ; 010 000 11  11 bx = ax - bx (subtract template size from address)
  21. ax      ; 010 000 02  12 set up register window so that
  22. cx      ; 010 000 04  13     bx is not clobbered
  23. dx      ; 010 000 05  14     by the adrf
  24. zero    ; 010 000 12  15 zero out dx so that adrf offset is zero
  25. adrf    ; 010 000 1d  16 get (forward) address of end marker -> ax
  26. nop0    ; 010 000 00  17 complement to end marker
  27. nop0    ; 010 000 00  18 complement to end marker
  28. nop0    ; 010 000 00  19 complement to end marker
  29. nop1    ; 010 000 01  20 complement to end marker
  30. bx      ; 010 000 03  21
  31. sub     ; 010 000 11  22 cx = dx - bx (subtract to find length)
  32. nop1    ; 010 000 01  23 reproduction loop marker
  33. nop1    ; 010 000 01  24 reproduction loop marker
  34. nop0    ; 010 000 00  25 reproduction loop marker
  35. nop1    ; 010 000 01  26 reproduction loop marker
  36. cx      ; 010 000 04  27
  37. ax      ; 010 000 02  28
  38. movdd   ; 010 000 06  29 copy cx (length) to ax
  39. dx      ; 010 000 05  30
  40. zero    ; 010 000 12  31
  41. dec     ; 010 000 0f  32 set dx to a negative value (to force better fit)
  42. ax      ; 010 000 02  33
  43. mal     ; 010 000 1e  34 allocate space for daughter with bestfit (addr into ax)
  44. dx      ; 010 000 05  35
  45. dx      ; 010 000 05  36
  46. dx      ; 010 000 05  37
  47. zero    ; 010 000 12  38 zero out dx so that adrf offset is zero
  48. call    ; 010 000 1a  39
  49. nop0    ; 010 000 00  40 copy procedure complement
  50. nop0    ; 010 000 00  41 copy procedure complement
  51. nop1    ; 010 000 01  42 copy procedure complement
  52. nop1    ; 010 000 01  43 copy procedure complement
  53. zero    ; 010 000 12  44 zero out dx so that IP offset is zero
  54. divide  ; 010 000 1f  45 create independent daughter cell
  55. dx      ; 010 000 05  46
  56. dx      ; 010 000 05  47
  57. dx      ; 010 000 05  48
  58. zero    ; 010 000 12  49
  59. jmpb    ; 010 000 19  50
  60. nop0    ; 010 000 00  51 reproduction loop complement
  61. nop0    ; 010 000 00  52 reproduction loop complement
  62. nop1    ; 010 000 01  53 reproduction loop complement
  63. nop0    ; 010 000 00  54 reproduction loop complement
  64. ifz     ; 010 000 16  55
  65. nop1    ; 010 000 01  56 copy procedure template
  66. nop1    ; 010 000 01  57 copy procedure template
  67. nop1    ; 010 000 01  58 copy procedure template
  68. nop0    ; 010 000 00  59 copy procedure template
  69.